home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 46 / 64er_Magazin_Sonderheft_46_19xx_Markt__Technik_de_Side_A.d64 / master->texto (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  5KB  |  139 lines
  1. 1 print"[148][148][148][148][148][148]still
  2. 2 [151]56,128:[156]:[151]53280,.:[151]650,128
  3. 3 [139][194](32769)[179][177]246[167][147]"mcode $8000",8,8
  4. 4 [139][194](50944)[179][177]120[167][147]"garbage64",8,8
  5. 5 [139][194](52800)[179][177]58[167][147]"microdir",8,8
  6. 6 [151]1,55:[158]51400:x[178][184](.):[129]i[178]1[164]40:sp$[178]sp$[170]" ":[130]:[151]53281,11
  7. 7 [160]15:[141]3000:[153]"(NULL)oment !":[159]15,8,15,"m-w":[141]3100:[139]ok[178].[167]7
  8. 8 sy$[178]"datamaster (c) nss 1987 v
  9. 9 print#15,"i":gosub3100:ifok=.then9
  10. 10 ob=32816:in=32777:fi=32840:b8$="b-p 8 0
  11. 11 br[178]32783:si[178]32780:fi[178]32840:ml[178]32792:aw[178]32804:we[178]32822:ta[178]32774:cb[178]32813
  12. 12 [134]s%(147),t%(147),s$(147),f$(146),na$(3),ag$(20),f%(20)
  13. 13 [137]1000
  14. 14 [160]8:[159]8,8,8,"#":[141]3100:[139]ok[178].[167]14
  15. 18 ok[178]1:[158]br,23,.,.:[158]si,8,28,a$:[139][200](a$,25)[178]sy$[167][142]
  16. 20 [153]"on   ":[153]"ononononononpeekitte legen (NULL)ie eine str$atendisk ein !
  17. 22 print"[207]effnen [211]ie danach erst dann wieder die
  18. 24 [153]"(NULL)aufwerksklappe,  wenn die rote  (NULL)valstr$ an
  19. 26 print"der [196]iskettenstation ausgegangen ist !
  20. 28 [160]8:[153][163]17)"[(NULL)aste,  (NULL) wait = atnbbruch]
  21. 30 poke198,.:wait198,1:geta$:ifa$="x"thenok=.:return
  22. 32 print"[145][207]k."spc(14)left$(sp$,22):goto14
  23. 1000 gosub3000:print"  [200]auptmenue:
  24. 1001 [153]"  tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(
  25. 1002 print"  1 [146] [196]atei von [196]atendisk einlesen
  26. 1004 [153]"  2 wait str$atei im (NULL)peicher zeigen
  27. 1006 print"  3 [146] [196]atei in normales [198]ile wandeln
  28. 1008 [153]"  4 wait str$irectory
  29. 1015 poke198,.:print"  5 [146] [208]rogrammende
  30. 1016 [153]"stop"sp$
  31. 1020 [161]a$:[139]a$[179]"1"[176]a$[177]"5"[167]1020
  32. 1022 [145][197](a$)[141]10000,11000,12000,13000,14000
  33. 1024 [137]1000
  34. 3000 [153]:[153]"loadstopstr$atn(NULL)atn(NULL)atn(NULL)(NULL)val(NULL) 64 (NULL)1/046 131187 (w) (NULL)(NULL)(NULL) 1987";
  35. 3002 [153]ma$[200](sp$,28[171][195](ma$))"(NULL)onverter (NULL)2":[142]
  36. 3100 ok[178]1:[132]15,f1,f1$,f2,f3:[139]f1[179]2[167][142]
  37. 3102 [153]"str$iskerror (NULL)r."f1"cmd:
  38. 3103 printchr$(34)f1$chr$(34)" in [212]rk"f2"[157], [211]ek"f3:systa:ok=.:return
  39. 3200 poke198,.
  40. 3202 geta$:ifa$="n"thenok=.:return
  41. 3204 ifa$<>"j"anda$<>"y"then3202
  42. 3206 ok=1:return
  43. 3300 ifma$=""thenprint"[203]eine [196]atei im [211]peicher !":systa:ok=.:return
  44. 3302 ok=1:return
  45. 3400 forv=1tolen(a$)
  46. 3402 ifmid$(a$,v,1)=chr$(13)then3410
  47. 3404 next:return
  48. 3410 a$=left$(a$,v-1):return
  49. 4000 ms=.:pt=1:sysaw:ad=49152
  50. 4002 h=peek(ad+1):ifpeek(ad)=.thenreturn
  51. 4004 ag$(ms)=mid$(a$,pt,h):pt=pt+h:ad=ad+4:ms=ms+1:goto4002
  52. 5000 gosub3000:print"[211]ie sehen nun die [197]ingabemaske. [194]itte
  53. 5002 [153]"waehlen (NULL)ie ueber die (NULL)asten <(NULL)(NULL)atnlenval>
  54. 5004 print"([198]eld dazunehmen), <[210][197][212][213][210][206]> ([206]aechstes
  55. 5006 [153]"asceld), <_tan> (valnde) die ascelder aus, deren
  56. 5008 print"[145][201]nhalt in die [196]atei uebernommen werden
  57. 5010 [153]"soll ! ((NULL)aste drucken)
  58. 5012 systa
  59. 5014 gosub3000:syscb:sysob:print"[215]eiss = [198]eldinhalt wird uebernommen     "
  60. 5016 ad=49152:fr=1:fori=1to20:f%(i)=.:next
  61. 5020 a2=peek(ad+2)*40+peek(ad+3)+peek(648)*256
  62. 5022 pokea2,262-peek(a2):geta$:ifa$=""then5022
  63. 5024 pokea2,160:ifa$=chr$(13)then5040
  64. 5026 ifa$=" "then5050
  65. 5028 ifa$<>"_"then5022
  66. 5030 ok=.:fori=1to20:ok=ok+f%(i):next:return
  67. 5040 fr=fr+1:ad=ad+4:ifpeek(ad)=.thenad=49152:fr=1
  68. 5042 goto5020
  69. 5050 f%(fr)=1-f%(fr):fori=.topeek(ad+1)-1
  70. 5052 poke54272+i+a2,f%(fr):next:goto5022
  71. 10000 print"":gosub14:ifok=.thenreturn
  72. 10001 gosub3000:print"[194]itte waehlen [211]ie eine [196]atei !
  73. 10002 [129]i[178]1[164]3:[158]br,23,i[170]1,.:[158]si,8,21,a$:[141]3400
  74. 10003 na$(i)[178]a$:[153]" "[196](i)" wait "na$(i):[130]i:[153]"  (NULL) wait atnbbruch
  75. 10004 geta$:ifa$="x"thenclose8:return
  76. 10005 ifa$<"1"ora$>"3"then10004
  77. 10006 nd=val(a$):ifna$(nd)="[136][204]eer"then10004
  78. 10010 sysbr,23,5,nd-1:get#8,a$:nb=asc(a$+chr$(.)):ifnbthen10020
  79. 10012 print"[196]iese [196]atei ist leer ! [[212]aste]":systa:close8:return
  80. 10020 print"[207][203].":sysml,nd:ig=.:se=.:print:fori=1tonb:print"[204]ese [211]chluessel"i"[145][145]
  81. 10022 [139]ig[178].[167][158]br,23[170]nd,se,.:se[178]se[170]1
  82. 10024 ig[178]ig[170]1:[139]ig[178]16[167]ig[178].
  83. 10026 [158]si,8,16,a$:[158]fi,a$,s$:s$(i)[178]s$:[130]:ma$[178]na$(nd)
  84. 10028 [158]br,30[170]nd,5,.:[129]i[178]1[164]nb:[161]#8,a$:t%(i)[178][198](a$[170][199](.)):[130]
  85. 10030 [158]br,30[170]nd,6,.:[129]i[178]1[164]nb:[161]#8,a$:s%(i)[178][198](a$[170][199](.)):[130]
  86. 10032 [141]3000:[153]"peekitte waehlen (NULL)ie die zu konvertierenden
  87. 10034 print"[145][196]atensaetze ! ([212]asten [202]/[206])
  88. 10036 [153]"(NULL)r. (NULL)chluessel            right$hre (NULL)ahl
  89. 10037 poke59639,7:qh=.:print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
  90. 10038 [129]i[178]1[164]nb:[153][201]("   "[170][196](i),3)[163]4)s$(i)[163]26);
  91. 10039 [161]a$:[139]a$[179][177]"j"[175]a$[179][177]"n"[167]10039
  92. 10040 [139]a$[178]"j"[167][153]" mid$a":[141]10100:[137]10044
  93. 10042 [153]"(NULL)ein
  94. 10044 next:ifqhthenpoke59639,255:close8:return
  95. 10046 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
  96. 10048 [146]203,64:[153]"(NULL)ie haben keinen str$atensatz gewaehlt !
  97. 10049 print"[206]ochmal waehlen ? [[202]/[206]]
  98. 10050 [141]3200:[139]ok[178].[167]ma$[178]"":[151]59639,255:[160]8:[142]
  99. 10052 [137]10032
  100. 10100 [158]br,t%(i),s%(i),.:[158]aw:[158]we:[158]si,8,[194](821),a$
  101. 10102 f$(qh)[178]a$:qh[178]qh[170]1:[142]
  102. 11000 [141]3300:[139]ok[178].[167][142]
  103. 11001 [141]3000:[151]59639,4:[153]"str$atensaetze dieser str$atei:
  104. 11002 fori=.toqh-1
  105. 11004 a$=f$(i):gosub4000:forj=.toms-1:printag$(j):next
  106. 11006 print"[144]---------------------------------------
  107. 11008 [130]:[153][163]32)"[(NULL)aste]":[158]ta:[151]59639,255:[142]
  108. 12000 [141]3300:[139]ok[178].[167][142]
  109. 12002 [141]5000:[139]ok[178].[167][142]
  110. 12004 [141]3000:[153]"peekitte str$ateiformat festlegen !
  111. 12006 print"[198]iletyp ?  [211] [146] [197][209]uential
  112. 12008 [153]"           (NULL) wait (NULL)ochr$ram
  113. 12010 print"           [213] [146] [211]e[210]
  114. 12012 [153]"           _ wait atnbbruch
  115. 12014 getty$:ifty$="_"thenreturn
  116. 12016 ifty$<>"s"andty$<>"u"andty$<>"p"then12014
  117. 12018 print"[198]ilename ? ";:sysin,16,fs$:iffs$=""thenreturn
  118. 12020 print"[194]itte legen [211]ie die [196]isk ein, auf der
  119. 12022 [153]"die str$atei angelegt werden soll !":[158]ta
  120. 12024 [160]9:[159]9,8,9,fs$[170]","[170]ty$[170]",w":[141]3100:[139]ok[167]12040
  121. 12026 [160]9:[139]f1[179][177]63[167]12004
  122. 12028 [153]"(NULL)eberschreiben ? [mid$/(NULL)]":[141]3200:[139]ok[178].[167]12004
  123. 12029 [152]15,"s:"[170]fs$:[141]3100:[139]ok[178].[167]12004
  124. 12030 [137]12024
  125. 12040 [141]3000:[153]"str$atei wird angelegt !
  126. 12042 fori=1toqh-1
  127. 12044 a$=f$(i)
  128. 12046 fr=1:pt=1:ad=49152
  129. 12048 ifpeek(ad)=.then12070
  130. 12050 iff%(fr)=.then12060
  131. 12052 b$=mid$(a$,pt,peek(ad+1)):sysfi,b$,c$:print#9,c$
  132. 12060 pt=pt+peek(ad+1):ad=ad+4:fr=fr+1:goto12048
  133. 12070 print"[157]"i"[157]. geschrieben             [145]":nexti:close9:return
  134. 13000 gosub3000:poke59639,5:print"[196]irectory:":sys52736:printtab(32)"[[212]aste]
  135. 13002 [158]ta:[151]59639,255:[142]
  136. 14000 [153]"(NULL)ollen (NULL)ie wirklich aufhoeren ? [mid$/(NULL)]
  137. 14002 gosub3200:ifokthensys64738
  138. 14004 return
  139.